Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/estenw_1/ingame.frm

Text File | 1998-04-25 | 22KB | 793 lines

VERSION 5.00
Begin VB.Form InGame
   BorderStyle     =   0  'None
   Caption         =   "Estenwood - In Game"
   ClientHeight    =   9000
   ClientLeft      =   -165
   ClientTop       =   -165
   ClientWidth     =   12000
   LinkTopic       =   "Form4"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   PaletteMode     =   1  'UseZOrder
   Picture         =   "InGame.frx":0000
   ScaleHeight     =   9000
   ScaleWidth      =   12000
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   WindowState     =   2  'Maximized
   Begin VB.Frame Frame1
      Height          =   840
      Left            =   3870
      TabIndex        =   6
      Top             =   270
      Visible         =   0   'False
      Width           =   1320
      Begin VB.OptionButton Option2
         Caption         =   "OFF"
         Height          =   255
         Left            =   120
         TabIndex        =   8
         Top             =   510
         Width           =   1020
      End
      Begin VB.OptionButton Option1
         Caption         =   "ON"
         Height          =   225
         Left            =   135
         TabIndex        =   7
         Top             =   165
         Value           =   -1  'True
         Width           =   1125
      End
   End
   Begin VB.Timer Timer1
      Interval        =   11000
      Left            =   525
      Top             =   4125
   End
   Begin VB.CommandButton Command5
      Caption         =   "E&xit to main"
      Height          =   255
      Left            =   5205
      TabIndex        =   5
      Top             =   0
      Visible         =   0   'False
      Width           =   1335
   End
   Begin VB.CommandButton Command4
      Caption         =   "Sou&nds >"
      Height          =   255
      Left            =   3870
      TabIndex        =   4
      Top             =   0
      Visible         =   0   'False
      Width           =   1335
   End
   Begin VB.CommandButton Command3
      Caption         =   "&Restore game"
      Enabled         =   0   'False
      Height          =   255
      Left            =   2535
      TabIndex        =   3
      Top             =   0
      Visible         =   0   'False
      Width           =   1335
   End
   Begin VB.CommandButton Command2
      Caption         =   "&Save game"
      Height          =   255
      Left            =   1200
      TabIndex        =   2
      Top             =   0
      Visible         =   0   'False
      Width           =   1335
   End
   Begin VB.CommandButton Command1
      Caption         =   "&New game"
      Enabled         =   0   'False
      Height          =   255
      Left            =   -15
      TabIndex        =   1
      Top             =   0
      Visible         =   0   'False
      Width           =   1215
   End
   Begin VB.ListBox List1
      BackColor       =   &H00FFFFFF&
      BeginProperty Font
         Name            =   "System"
         Size            =   9.75
         Charset         =   238
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00008000&
      Height          =   1740
      Left            =   720
      TabIndex        =   0
      Top             =   6360
      Width           =   6975
   End
   Begin VB.Image View
      Height          =   2310
      Left            =   1305
      Stretch         =   -1  'True
      Top             =   1080
      Width           =   5910
   End
   Begin VB.Image RedPoint
      Height          =   330
      Left            =   270
      Picture         =   "InGame.frx":75742
      Top             =   150
      Width           =   345
   End
   Begin VB.Image RelianStats
      Height          =   4575
      Left            =   8160
      Top             =   3600
      Width           =   3015
   End
   Begin VB.Image RelianFace
      Height          =   2415
      Left            =   8160
      Top             =   1080
      Width           =   3015
   End
   Begin VB.Shape Shape2
      Height          =   7335
      Left            =   8040
      Top             =   960
      Width           =   3255
   End
   Begin VB.Shape Shape1
      Height          =   2055
      Left            =   600
      Top             =   6240
      Width           =   7215
   End
   Begin VB.Line Line8
      BorderColor     =   &H00808080&
      X1              =   2880
      X2              =   2880
      Y1              =   5160
      Y2              =   4080
   End
   Begin VB.Line Line7
      BorderColor     =   &H00808080&
      X1              =   5640
      X2              =   5640
      Y1              =   5160
      Y2              =   4080
   End
   Begin VB.Line Line6
      BorderColor     =   &H00808080&
      X1              =   2880
      X2              =   5640
      Y1              =   4080
      Y2              =   4080
   End
   Begin VB.Line Line5
      BorderColor     =   &H00808080&
      X1              =   2880
      X2              =   5640
      Y1              =   5160
      Y2              =   5160
   End
   Begin VB.Line Line4
      BorderColor     =   &H00808080&
      X1              =   7305
      X2              =   1185
      Y1              =   975
      Y2              =   975
   End
   Begin VB.Line Line3
      BorderColor     =   &H00808080&
      X1              =   1200
      X2              =   1200
      Y1              =   3480
      Y2              =   960
   End
   Begin VB.Line Line2
      BorderColor     =   &H00808080&
      X1              =   7320
      X2              =   7320
      Y1              =   3480
      Y2              =   960
   End
   Begin VB.Line Line1
      BorderColor     =   &H00808080&
      X1              =   1200
      X2              =   7320
      Y1              =   3480
      Y2              =   3480
   End
   Begin VB.Image ArrowRight
      Height          =   450
      Left            =   5040
      Picture         =   "InGame.frx":75D94
      Top             =   4560
      Width           =   420
   End
   Begin VB.Image ArrowLeft
      Height          =   450
      Left            =   3000
      Picture         =   "InGame.frx":7651E
      Top             =   4560
      Width           =   420
   End
   Begin VB.Image ArrowUp
      Height          =   420
      Left            =   3960
      Picture         =   "InGame.frx":76CA8
      Stretch         =   -1  'True
      Top             =   4200
      Width           =   450
   End
   Begin VB.Image KompasWest
      Height          =   435
      Left            =   3480
      Picture         =   "InGame.frx":7746A
      Top             =   4680
      Visible         =   0   'False
      Width           =   1500
   End
   Begin VB.Image KompasSouth
      Height          =   435
      Left            =   3480
      Picture         =   "InGame.frx":77B12
      Top             =   4680
      Visible         =   0   'False
      Width           =   1500
   End
   Begin VB.Image KompasNorth
      Height          =   435
      Left            =   3480
      Picture         =   "InGame.frx":78146
      Top             =   4680
      Width           =   1500
   End
   Begin VB.Image KompasEast
      Height          =   435
      Left            =   3480
      Picture         =   "InGame.frx":787BA
      Top             =   4680
      Visible         =   0   'False
      Width           =   1500
   End
End
Attribute VB_Name = "InGame"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim X, Y, i As Integer
Dim ConstPth As String 'Assigned in Form.Load
Const SaveFileName As String = "Save.est" 'Name of the save file
'InGame 3D pictures
    Co